1 REM ******************************** 2 REM * * 3 REM * DAS BUCH DER WEISHEIT * 4 REM * * 5 REM * JULI 1984 * 6 REM * * 7 REM * EDGAR THORAND * 8 REM * AN DER ROETHE 1 * 9 REM * 3501 KOERLE * 10 REM * 05665/1670 * 11 REM * * 12 REM * UND FALK MESSING * 13 REM * C/O E.THORAND * 14 REM * * 15 REM * * 16 REM ******************************** 23 FORM=1TO3:Y(M)=INT(RND(1)*144)+108:NEXTM 24 DEFFNTR(CP)=(CP=OB(NO)OROB(NO)=-2) 25 POKE53280,2:POKE53281,2 26 PRINTCHR$(14) 27 PRINT"[147]" 28 PRINT"[144]*** [196]AS [194][213][195][200] DER [215][197][201][211][200][197][201][212] ***" 29 PRINT"[197].[212]HORAND UND [198].[205]ESSING" 30 GOSUB50000 35 PRINT"[147][206]EUES ODER [193]LTES [211]PIEL ?" 36 GETSP$:IFSP$=""THEN36 37 IFSP$="N"ORSP$="[206]"THEN40 38 IFSP$="A"ORSP$="[193]"THEN25000 39 GOTO35 40 POKE53280,0:POKE53281,0 100 REM 101 S=O 110 GOSUB1261 112 GOSUB1130 115 IFVB=3ANDN1$=""THEN100 120 IFNO<9ANDNO<>0AND(VB=0ORVB=1)THENVB=1:GOTO150 130 IFLEN(N1$)>0ANDNO=0THENS=1 131 IFS=1THENS=0:PRINT"[152][201]CH KENNE ";CHR$(34);N1$;CHR$(34);" NICHT!":GOTO112 135 IFVB=27ORVB=13ORVB=38ORVB=29ORVB=24THEN150 140 IFN1$=""ANDVB>0THENPRINT"[152][201]CH BENOETIGE EIN [214][197][210][194] UND EIN [207][194][202][197][203][212]!":GOTO112 150 GOTO1490 1130 PRINT:PRINT"[154][215]AS WILLST [196]U JETZT MACHEN ?" 1135 INPUTCM$ 1140 IFLEN(CM$)=0THEN1130 1150 VB$="":NO$="":VB=0:NO=0 1160 LC=LEN(CM$):FORI=1TOLC:A$=MID$(CM$,I,1):IFA$<>" "THENVB$=VB$+A$:NEXT 1170 IFLEN(VB$)+1>=LEN(CM$)THENNO=0:GOTO1190 1180 NO$=RIGHT$(CM$,LC-I) 1190 N1$=NO$:V1$=VB$:VB$=LEFT$(VB$,4):NO$=LEFT$(NO$,4):FORI=1TONV 1200 IFVB$=VB$(I)THENVB=I:GOTO1240 1210 NEXT:VB=0 1220 IFN1$=""THENNO$=VB$ 1230 VB=0:GOTO1250 1240 IFVB$=CM$THENNO=0:NO$="":RETURN 1250 FORI=1TONN:IFNO$=NO$(I)THENNO=I:RETURN 1260 NEXT:NO=0:NO$="":RETURN 1261 IFKL=1ANDCP=43ANDVB=3THENPRINTS$(112):RETURN 1262 IFKL=1ANDCP=57ANDVB=3THENPRINTS$(112):RETURN 1263 IFKL=1ANDCP=62ANDVB=3THENPRINTS$(113):RETURN 1264 IFKL=1ANDCP=131ANDVB=3THENPRINTS$(114):RETURN 1265 IFKL=1ANDCP=133ANDVB=3THENPRINTS$(114):RETURN 1266 IFKL=1ANDCP=137ANDVB=3THENPRINTS$(114):RETURN 1270 IFCP<>CSORVB=3ANDN1$=""THENPRINT"[147]":CS=CP:GOTO1290 1280 RETURN 1290 P$="[154][196]U BIST "+P$(CP) 1291 PRINTP$:IFLG=0THEN1298 1292 IFOB(47)=-2ANDLI>0THENS=1 1293 IFOB(47)=CPANDLI>0THENS=1 1294 IFS=1THENS=0:GOTO1298 1297 PRINTS$(62):GOTO1340 1298 K=0:FORI=1TOLO:IFOB(I)<>CPTHEN1330 1300 IFK=0THENPRINT"[156][196]U SIEHST " 1310 IF(4+POS(0)+LEN(OB$(I)))>39THENPRINT 1320 PRINT"";OB$(I);".";:K=K+1 1330 NEXTI 1331 IFCP=134ORCP=120THENPRINT"[197]ISENRINGE." 1332 IFCP=133ORCP=136ORCP=139ORCP=141ORCP=146ORCP=137THENS=1 1333 IFS=1THENS=0:PRINT:PRINT"[153][196]A SIND [211]CHIENEN." 1334 IFK>0THENPRINT 1340 K=0:PRINT:PRINT"[156][205]OEGLICHE [210]ICHTUNGEN: " 1350 FORI=0TO3:IFP(CP,I)=0THEN1380 1360 IFK>0THENPRINT". ";:K=K+1 1370 PRINT"[155]";D$(I);:K=K+1 1380 NEXT 1390 PRINT 1399 RETURN 1490 IFBI>0THENZ=Z+1 1491 IFZ=4ORZ=7ORZ>9THENPRINTS$(26):FORI=1TO1500:NEXTI 1492 IFZ>12THEN30000 1494 IFRI>2THENPRINTS$(40):FORI=1TO2000:NEXTI 1495 IFRI=5THENPRINTS$(41):OB(40)=0:ZZ=ZZ-1:FORI=1TO2000:NEXTI:RI=0 1500 IFOB(91)=-1THENF=F+1 1501 IFF>4 THENPRINTS$(67):FORI=1TO2500:NEXTI:IFOB(16)=-2THENZZ=ZZ-1 1502 IFF> 4THENOB(16)=0:FE=0:F=0:OB(91)=-3 1504 IFOB(95)=-1THENB=B+1:IFB>15THENPRINTS$(68):IFOB(20)=-2THENZZ=ZZ-1 1505 IFB>15THENOB(20)=0:B=0:OB(95)=-3 1510 IFPF=0THENOB(38)=0:PF=0 1515 IFBP>0THENBP=BP+1:IFBP>5THENPRINTS$(155):OB$(38)=OB$(98):OB(96)=0:S=1 1516 IFS=1THENS=0:BP=0:FORI=1TO2500:NEXTI 1522 IFCP=58THEN30010 1523 IFCP=41ANDOB(11)<>-2THENSP=SP+1:IFSP>4THEN30030 1529 IFCP=30ORCP=31ORCP=39ORCP=44ORCP=48ORCP=51ORCP=52ORCP=60ORCP=61THENS=1 1530 IFS=1THENSM=SM+1:IFSM>5THENS=0:GOTO30020 1540 IFCP=161THENPRINTS$(163):FORI=1TO2000:NEXTI:GOTO30010 1545 IFCP=149THENPRINTS$(164):FORI=1TO2000:NEXTI:GOTO30010 1600 IFRU>0THENRU=RU+1:GOTO100 1601 IFRU=2ORRU=4ORRU=6THENPRINTS$(167):GOTO100 1603 IFRU>6THENGOTO30010 1700 FORM=1TO3:IFCP=Y(M)THEN1705 1701 NEXTM 1702 GOTO1991 1705 IFOB(13)=-2THENPRINTS$(167):OB(13)=0:ZZ=ZZ-1:Y(1)=0:Y(2)=0:Y(3)=0:S=1 1706 IFS=1THENS=0:FORI=1TO2000:NEXTI:GOTO1991 1707 FORI=1TOLO:IFOB(I)=-2THENOB(I)=0:ZZ=ZZ-1:PRINTS$(168):Y(M)=0:S=1 1708 IFS=1THENS=0:FORX=1TO2000:NEXTX:GOTO1991 1709 NEXTI 1991 IFKL=1ANDVB<>13THENIFKL=1ANDVB<>12THENPRINTS$(2):GOTO112 2000 IFVB=0THEN2100 2010 ONVBGOTO3000,3500,4000,4500,5000,5500,14000,6500,7000,7500,8000,8500,9000 2011 ONVB-13GOTO9500,10000,10000,3500,3500,10500,10500,11000,3000,3000 2012 ONVB-23GOTO11500,12000,12500,20000,13500,14000,14000,14500,14500,15000 2013 ONVB-33GOTO15500,16000,16500,17000,17500 2100 PRINT"[152][201]CH HABE NIE GELERNT,WIE MAN " 2101 PRINTCHR$(34);V1$;CHR$(34);" ANWENDET":GOTO100 3000 IFNO<9THEN3025 3005 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 3008 IFNO=10ANDCP=7THENCP=177:GOTO100 3010 IFNO=30THENPRINTS$(136):GOTO100 3020 IFNO=79ANDOB(79)=CPTHENPRINTS$(157):GOTO100 3022 IFNO=61THENPRINTS$(157):GOTO100 3023 IFNO=64THENPRINTS$(157):GOTO100 3024 PRINTS$(158):GOTO100 3025 IFNO>4THENNO=NO-4 3026 NO=NO-1 3030 IFP(CP,NO) =0THENPRINT"[203]EIN [215]EG IN DIESE [210]ICHTUNG":GOTO100 3035 IFCP=148ORCP=153ORCP=156ORCP=160ORCP=164THENS=1 3040 IFS=1THENIFOB(30)<>-2THENPRINTS$(159):S=0:FORI=1TO1500:NEXTI:GOTO30010 3045 IFS=1THENIFOB(30)=-2ANDOB(31)<>-2THENPRINTS$(160):S=0:RU=1:GOTO100 3046 S=0 3050 IFCP=25ANDNO=1ANDOB(21)=CPTHENPRINT"[153][196]ER [212]IGER ";S$(28):GOTO100 3055 IFCP=28ANDNO=1ANDOB(90)<>-1THENPRINT"[153][196]ER [208]UMA ";S$(28):GOTO100 3060 IFCP=33ANDNO=2ANDOB(17)=CPTHENPRINT"[153][196]IE [208]HYTON ";S$(28):GOTO100 3065 IFCP=34ANDNO=2ANDOB(71)=CPTHENPRINT"[153][196]IE [193]FFEN ";S$(161):GOTO100 3070 IFCP=35ANDNO=2ANDOB(18)=CPTHENPRINT"[153][196]IE [197]LEPHANTEN ";S$(161):GOTO100 3075 IFCP=49ANDNO=2ANDOB(25)=CPTHENPRINT"[153][196]IE [194]OA ";S$(28):GOTO100 3080 IFCP=41ANDOB(22)=CPANDOB(87)<>-1THENPRINT"[153][196]IE [211]PINNE ";S$(28):GOTO100 3083 IFCP=73ANDNO=3ANDOB(76)=CPTHENCP=61:GOTO100 3085 IFCP=73ANDOB(76)=CPTHENPRINT"[153][196]IE [203]REBSE ";S$(161):GOTO100 3090 IFCP=63ANDNO=1ANDOB(73)=CPTHENPRINT"[153][196]IE [210]ATTEN ";S$(161):GOTO100 3100 IFCP=84ANDNO=0ANDOB(37)=CPTHENPRINT"[153][196]IE [208]FLANZE ";S$(28):GOTO100 3110 IFCP=87ANDNO=0ANDOB(89)<>-1THENPRINT"[153][196]ER [211]CORPION ";S$(28):GOTO100 3115 IFCP=106ANDOB(47)<>-2ANDNO=2THENPRINT"[153][196]IE [218]WERGE ";S$(161):GOTO100 3120 IFCP=106ANDNO=3ANDOB(12)<>-2THENPRINT"[153][196]IE [218]WERGE ";S$(161):GOTO100 3131 IFCP=130ANDNO=1ANDOB(57)=CPTHENPRINT"[153][196]ER [198]LUGDRACHE ";S$(28):GOTO100 3135 IFCP=135ANDNO=2ANDOB(62)=CPTHENPRINT"[153][196]ER [215]AECHTER ";S$(28):GOTO100 3136 IFCP=156ANDOB(43)=CPANDNO=2THENPRINT"[153][196]IE [203]ROKODILE ";S$(161):GOTO100 3137 IFCP=124ANDNO=2ANDOB(56)=CPTHENPRINT"[153][196]ER [211]TEINFRESSER ";S$(28):GOTO100 3140 IFCP=120ANDBA<>CPANDNO=1THENS=1 3141 IFCP=112ANDBA<>CPANDNO=0THENS=1 3142 IFCP=128ANDBA<>CPANDNO=2THENS=1 3143 IFCP=134ANDBA<>CPANDNO=2THENS=1 3144 IFCP=145THENS=1 3148 IFS=1THENPRINTS$(56):CP=147:OB(47)=106:OB(12)=165:FORI=1TO2500:NEXTI 3149 IFS=1THENZZ=ZZ-1:LG=0:S=0:GOTO100 3150 CP=P(CP,NO):GOTO100 3500 : 3504 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 3505 IFSE>0ANDNO=42THENPRINTS$(2):GOTO100 3506 IFOB(NO)=-2THENPRINTS$(25):GOTO100 3508 IFNO=10ORNO=18ORNO=19ORNO=21ORNO=23ORNO=24ORNO=26ORNO=27ORNO=28THENS=1 3509 IFNO=29ORNO=37ORNO=41ORNO=46ORNO=49ORNO=61ORNO=60ORNO=62ORNO=63THENS=1 3510 IFNO=67ORNO=68ORNO=69ORNO=72ORNO=75ORNO=79ORNO=71ORNO=36ORNO>81THENS=1 3511 IFS=1THENPRINTS$(7):S=0:GOTO100 3514 IFNO=54ORNO=64THENPRINTS$(9):GOTO100 3516 IFNO=17ORNO=25ORNO=33ORNO=56ORNO=57ORNO=73THENS=1 3519 IFNO=22ANDOB(87)<>-1THENS=1 3521 IFNO=70ANDOB(88)<>-1THENS=1 3522 IFNO=74ANDOB(89)<>-1THENS=1 3527 IFS=1THENPRINTS$(8):S=0:BI=1:GOTO100 3529 IFNO=13ANDOB(88)<>-1THENPRINT"[153][196]IE [212]ARANTEL";S$(28):GOTO100 3530 IFNO=47ANDOB(46)=CPANDLG=0THENPRINT"[153][196]ER [218]WERGENKOENIG";S$(28):GOTO100 3532 IFNO=47ANDLI=0THENLI=CP 3539 IFZZ>8THENPRINTS$(27):GOTO100 3540 PRINTS$(1):OB(NO)=-2:ZZ=ZZ+1:GOTO100 4000 : 4005 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 4010 IFNO=48ORNO=54ORNO=58ORNO=60ORNO=65ORNO=66ORNO=50THEN4020 4012 PRINTS$(143):GOTO100 4020 IFNO=48ANDOB(82)=-1THENPRINTS$(144):GOTO100 4025 IFNO=48THENPRINTS$(145):GOTO100 4030 IFNO=66ANDOB(83)=-1ANDOB(80)=CPTHENPRINTS$(146):GOTO100 4035 IFNO=66ANDOB(83)=-1THENPRINTS$(144):GOTO100 4040 IFNO=66THENPRINTS$(145):GOTO100 4045 IFNO=60THENPRINTS$(147):GOTO100 4050 IFNO=54THENPRINTS$(148):GOTO100 4055 IFNO=65THENPRINTS$(149):GOTO100 4060 IFNO=50THENPRINTS$(165):GOTO100 4065 PRINTS$(143):GOTO100 4500 : 4503 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 4504 IFNO=12ANDOB(12)<>-2THENPRINTS$(29):GOTO100 4505 IFNO=47ANDOB(47)<>-2THENPRINTS$(29):GOTO100 4506 IFNO=12ANDOB(46)=CPTHENPRINTS$(57):OB(12)=0:OB(47)=-2:LG=1:GOTO 100 4507 IFNO=47ANDOB(46)=CPTHENPRINTS$(72):OB(12)=CP:OB(47)=CP:LG=0:OB(12)=-2:S=1 4508 IFS=1THENS=0:GOTO100 4510 IFCP=106THENPRINTS$(13):GOTO100 4513 IFCP<>106THENPRINTS$(73):GOTO100 4515 PRINTS$(58):GOTO100 5000 : 5004 IFOB(42)<>-2THENPRINTS$(29):GOTO100 5006 IFCP=43THENPRINTS$(42):SE=1:OB(42)=CP:ZZ=ZZ-1:GOTO100 5008 IFCP=57THENPRINTS$(43):SE=1:OB(42)=CP:ZZ=ZZ-1:GOTO100 5012 IFCP=120ORCP=134THENS=1 5014 IFS=1THENS=0:PRINTS$(48):ZZ=ZZ-1:OB(42)=CP:SE=1:GOTO100 5018 PRINTS$(46):GOTO100 5500 : 5504 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 5506 IFNO=40ORNO=58THEN5508 5507 PRINTS$(36):GOTO100 5508 IFNO=58ANDDR=1THENPRINTS$(6):GOTO100 5509 IFNO=58THENPRINTS$(37):P(131,2)=135:DR=1:GOTO100 5510 IFNO=40ANDOB(12)=-2THENPRINT"[147]";S$(39):RI=RI+1:GOTO5514 5512 PRINTS$(38):GOTO100 5514 X=INT(RND(1)*6)+1 5515 ONXGOSUB5520,5525,5530,5535,5540,5541 5517 IFCD=CPTHEN5514 5518 FORI=1TO2500:NEXTI:GOTO100 5520 CP=17:RETURN 5525 CP=22:RETURN 5530 CP=92:RETURN 5535 CP=95:RETURN 5540 CP=176:RETURN 5541 CP=5:RETURN 6500 : 6505 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 6510 IFNO=48ANDOB(82)=-1THENPRINT"[153][196]IE [212]RUHE ";S$(122):GOTO100 6515 IFNO=48ANDOB(51)=-2ANDOB(93)=-1THENPRINTS$(1):S=1 6516 IFS=1THENS=0:OB(82)=-1:OB$(48)=OB$(82):GOTO100 6517 IFNO=48ANDOB(93)<>-1THENPRINTS$(2):GOTO100 6518 IFNO=48ANDOB(51)<>-2THENPRINTS$(2):GOTO100 6525 IFNO=54THENPRINTS$(123):GOTO100 6530 IFNO=66ANDOB(83)=-1THENPRINT"[153][196]IE [203]ISTE ";S$(122):GOTO100 6539 IFS=1THENS=0:PRINTS$(124):OB(80)=CP:PG=1:GOTO100 6540 IFNO=66ANDOB(92)<>-1THENPRINTS$(2):GOTO100 6541 IFNO=66ANDOB(55)<>-2THENPRINTS$(2):GOTO100 6543 IFNO=66ANDOB(92)=-1ANDOB(55)=-2THENPRINTS$(1):OB(83)=-1:S=1 6544 IFS=1THENS=0:OB$(66)=OB$(83):PRINTS$(4):OB(80)=CP:GOTO100 6545 IFNO=65ANDBU=1THENPRINTS$(122):GOTO100 6550 IFNO=65THENPRINTS$(1):BU=1:GOTO100 6555 PRINTS$(125):GOTO100 7000 : 7004 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 7005 IFNO<>12THENPRINTS$(128):GOTO100 7006 IFNO=12ANDCP>10THENPRINTS$(2):GOTO100 7010 IFNO=12ANDCP<11THENPRINT"[147]";S$(39) 7011 FORM=1TO2500:NEXTM 7012 PRINT"[147]":IFOB(12)<>-2THENOB(12)=-2:ZZ=ZZ+1 7015 X=INT(RND(1)*3)+1 7016 IFX=1THENCP=11:GOTO100 7017 IFX=2THENCP=12:GOTO100 7018 IFX=3THENCP=13:GOTO100 7020 IFNO=12THENPRINTS$(2):GOTO100 7025 GOTO100 7500 : 7501 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 7502 IFNO=15ORNO=16ORNO=20ORNO=38ORNO=47THEN7504 7503 PRINTS$(66):GOTO100 7504 IFNO=16ANDOB(91)=-1THENPRINTS$(21):GOTO100 7506 IFNO=16ANDFE=0THENPRINTS$(70):GOTO100 7508 IFNO=15ANDOB(94)=-1THENPRINTS$(63):GOTO100 7512 IFNO=15ANDFE=1ANDOB(16)=CPTHENS=1 7514 IFNO=15ANDFE=1ANDOB(16)=-2THENS=1 7516 IFS=1THENPRINTS$(1):S=0:OB$(15)=OB$(94):FA=1:OB(94)=-1:GOTO100 7520 IFNO=20ANDOB(95)=-1THENPRINTS$(64):GOTO100 7525 IFNO=20ANDFA=1ANDOB(15)=CPTHENS=1 7530 IFNO=20ANDFA=1ANDOB(15)=-2THENS=1 7535 IFS=1THENS=0:PRINTS$(1):OB$(20)=OB$(95):B=1:OB(95)=-1:GOTO100 7540 IFNO=38ANDOB(96)=-1THENPRINTS$(65):GOTO100 7545 IFNO=38ANDFA=1ANDOB(15)=-2THENS=1 7550 IFNO=38ANDFA=1ANDOB(15)=CPTHENS=1 7555 IFS=1THENS=0:OB$(38)=OB$(96):OB(96)=-1:BP=1:PRINTS$(1):GOTO100 7560 IFNO=47ANDOB(97)=-1THENPRINTS$(71):GOTO100 7565 IFNO=47ANDFA=1ANDOB(15)=-2THENS=1 7570 IFNO=47ANDFA=1ANDOB(15)=CPTHENS=1 7580 IFS=1THENS=0:PRINTS$(1):OB$(47)=OB$(97):OB(97)=-1:LI=CP:GOTO100 7585 PRINTS$(2):GOTO100 8000 : 8004 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 8006 IFOB(NO)<>-2THENPRINTS$(29):GOTO100 8007 IFNO=47ANDLG=1THENLI=0 8008 OB(NO)=CP:ZZ=ZZ-1:PRINTS$(1) 8010 IFNO=52ANDOB(12)=CPTHENPRINTS$(93):OB(52)=0:GOTO100 8020 IFNO=44ANDCP=33ANDOB(17)=CPTHENPRINTS$(95):OB(17)=0:OB(44)=0:GOTO100 8025 IFNO=44ANDCP=49ANDOB(25)=CPTHENPRINTS$(93):OB(44)=0:GOTO100 8030 IFNO=52ANDCP=35ANDOB(18)=CPTHENPRINTS$(93):OB(52)=0:GOTO100 8035 IFNO=35ANDCP=35ANDOB(18)=CPTHENPRINTS$(96):OB(18)=0:OB(35)=0:GOTO100 8040 IFNO=45ANDCP=84ANDOB(37)=CPTHENPRINTS$(97):OB(37)=0:OB(45)=0:GOTO100 8045 IFNO=78ANDCP=34ANDOB(71)=CPTHENPRINTS$(98):OB(78)=0:OB(71)=0:GOTO100 8050 IFNO=77ANDCP=63ANDOB(73)=CPTHENPRINTS$(99):OB(77)=0:OB(73)=0:GOTO100 8055 IFNO=34ANDCP=73ANDOB(76)=CPTHENPRINTS$(100):OB(34)=0:OB(76)=0:GOTO100 8060 IFNO=34ANDCP=63ANDOB(73)=CPTHENPRINTS$( 99):OB(34)=0:OB(73)=0:GOTO100 8070 IFNO=20ANDCP=112THENBA=CP:PRINTS$(126):GOTO100 8072 IFNO=20ANDCP=134THENBA=CP:PRINTS$(126):GOTO100 8073 IFNO=20ANDCP=128THENBA=CP:PRINTS$(126):GOTO100 8074 IFNO=20ANDCP=120THENBA=CP:PRINTS$(126):GOTO100 8076 IFNO=51ANDCP=121ANDOB(93)=0THENPRINTS$(127):OB(51)=0:GOTO100 8080 IFNO=55ANDCP=121ANDOB(92)=0THENPRINTS$(127):OB(55)=0:GOTO100 8085 IFCP=106ANDNO=65THEN32000 8090 GOTO100 8500 : 8502 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 8503 IFKL=1THENPRINTS$(110):GOTO112 8505 IFNO=24ANDOB(86)<>-1ANDCP=43THENPRINTS$(1):KL=1:GOTO112 8510 IFNO=26ANDCP=57ANDOB(85)<>-1THENPRINTS$(1):KL=1:GOTO112 8515 IFNO=29ANDCP=62THENPRINTS$(103):KL=1:GOTO112 8520 IFNO=42ANDSE=1THENPRINTS$(52):FORI=1TO2500:NEXTI:PRINTS$(104):GOTO100 8525 IFNO=49ANDCP=109THENPRINTS$(105):GOTO100 8530 IFNO=58ANDCP=131THENPRINTS$(106);S$(107):KL=1:GOTO112 8535 IFNO=61ANDOB(61)=CPTHENPRINTS$(108):KL=1:GOTO112 8540 IFNO=64ANDOB(63)=0THENPRINTS$(132):OB(64)=0:GOTO100 8542 IFNO=64ANDCP=138THENPRINTS$(109):GOTO112 8545 IFNO=79ANDCP=137ANDOB(79)=CPTHENPRINTS$(54):KL=1:GOTO112 8593 PRINTS$(111):GOTO100 9000 : 9003 IFKL=1THENPRINTS$(115):KL=0:GOTO100 9005 PRINTS$(116):GOTO100 9500 : 9502 IFNO=11ORNO=30ORNO=38ORNO=39ORNO=32ORNO=59ORNO=14THEN9505 9503 PRINTS$(121):GOTO100 9505 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 9506 IFNO=14THENPRINT"[153][215]IE?":GOTO100 9510 IFNO=30THENPRINTS$(136):GOTO100 9515 IFNO=32THEN14500 9520 IFNO=38THEN14500 9525 IFNO=11ANDCP=124ANDOB(56)=CPTHENPRINTS$(137):OB(56)=0:GOTO100 9530 IFNO=11ANDCP=41ANDOB(23)=0THENPRINTS$(139):OB$(22)=OB$(87):S=1 9531 IFS=1THENS=0:OB(87)=-1:GOTO100 9535 IFNO=11ANDCP=41ANDOB(23)<>0THENPRINTS$(138):OB(23)=0:GOTO100 9540 IFNO=39ANDOB(38)=-2ANDCP=130ANDOB(57)=CPTHENPRINTS$(140):OB(57)=0:S=1 9541 IFS=1THENS=0:PF=PF-1:GOTO100 9545 IFNO=39ANDOB(38)=-2ANDOB(96)=-1ANDCP=98ANDOB(41)<>0THENPRINTS$(141):S=1 9546 IFS=1THENS=0:PF=PF-1:OB(41)=0:P(98,2)=105:GOTO100 9550 IFNO=39ANDOB(38)=-2ANDCP=98THENPRINTS$(142):PF=PF-1:GOTO100 9560 IFNO=39ANDOB(38)=-2THENPRINTS$(83):PF=PF-1:GOTO100 9570 IFNO=11ANDOB(11)=-2ANDCP=25ANDOB(21)=CPTHENPRINTS$(156):OB(21)=0:GOTO100 9575 IFNO=59ANDCP=137ANDOB(79)>0THENPRINTS$(1):RA=1:GOTO100 9580 PRINTS$(6):GOTO100 10000 : 10003 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 10004 IFNO=65ANDBU=1THENPRINTS$(150);S$(151):GOTO100 10005 IFNO=65THENPRINTS$(152):GOTO100 10006 IFNO=80ANDOB(80)<>0THENPRINTS$(59):GOTO100 10007 IFNO=66THENPRINTS$(152):GOTO100 10008 IFNO=67THENPRINTS$(60):GOTO100 10009 IFNO=36THEN10100 10010 PRINTS$(61):GOTO100 10100 PRINT"[147][150][200]ALLO [193]BENTEURER !" 10101 PRINT"[196]U HAST DIE [193]UFGABE, DAS" 10102 PRINT"*** [194][213][195][200] [196][197][210][160][215][197][201][211][200][197][201][212] ***" 10103 PRINT"ZU FINDEN UND ZU DEN [218][215][197][210][199][197][206][160]ZU BRINGEN." 10104 PRINT"[193]UF DEM [215]EGE DAHIN WIRST [196]U VIELE [160][160][160][160][160][160][193][194][197][206][212][197][213][197][210] UND [199][197][198][193][200][210][197][206]" 10105 PRINT"BESTEHEN MUESSEN. [211]EI AUF DER [200]UT UND FUERCHTE [196]ICH NICHT." 10106 PRINT"[206]OCH EIN PAAR [212]IPS:" 10107 PRINT"[201]CH WERDE [196]EIN [194]EGLEITER SEIN, UND DICH FUEHREN, INDEM [196]U MIR " 10108 PRINT"[193]NWEISUNGEN IN [198]ORM ' NIMM AXT' " 10109 PRINT"'LEGE BUCH' GIBST.":PRINT"*** [194]ITTE EINE [212]ASTE ***":WAIT 203,63 10110 PRINT"[197]INIGE [214][197][210][194][197][206] SIND Z.[194].:" 10111 PRINT"TAUSCHE-FRAGE-TRAGE-BENUTZE-(EIN)LADEN- RAEUMEN" 10112 PRINT"[205]IT 'INVENTUR' BEKOMMST [196]U GEZEIGT, WAS [196]U BEI [196]IR TRAEGST." 10115 PRINT"[205]IT 'SAVE' KANNST [196]U EIN [211]PIEL FUER SPAETERES [215]EITERSPIELEN" 10116 PRINT"ABSPEICHERN." 10117 PRINT"[213]ND NUN [214][201][197][204] [199][204][213][197][195][203] !!!" 10118 PRINT"([197].[212]HORAND U.[160][198].[205]ESSING)" 10119 PRINT"*** [194]ITTE EINE [212]ASTE *** ":WAIT 203,63:PRINT"[147]":CS=1 10120 PRINT"[206]OCH ETWAS:" 10122 PRINT"[197]INIGE [214]ERBEN KOENNEN ALLEIN BENUTZT WERDEN, Z.[194]." 10124 PRINT"SCHAU - HILF - SAVE" 10126 PRINT"[215]ENN [196]U ETWAS UNTERSUCHEN MOECHTEST, GIB' BITTE Z.[194]. " 10128 PRINT"SCHAU [200]UETTE ODER SCHAU [211]TATUE' EIN." 10130 PRINT"[196]IE HIER AUFGEFUEHRTEN [214]ERBEN SIND NUR EINE [193]USWAHL!" 10136 PRINT"*** BITTE EINE [212]ASTE ***":WAIT203,63:PRINT"[147]" 10138 PRINT"[197]IN VORLETZTER [212]IP: [196]IE [210]AEUME SIND NORMALERWEISE QUADRATISCH," 10140 PRINT"NUR AM [198]LUSS NICHT, DORT IST [214]ORSICHT BEIM [193]UFZEICHNEN GEBOTEN!" 10144 PRINT"......UND SOLLTE ES GARNICHT KLAPPEN:" 10146 PRINT"[203]ARTE ODER [193]NRUF AN:" 10147 PRINT"[197]DGAR [212]HORAND" 10148 PRINT"[193]N DER [210]OETHE 1" 10149 PRINT"3501 [203]OERLE" 10150 PRINT"[212]EL. 05665/1670" 10155 PRINT"[193]UCH UEBER [203]RITIK UND [193]NREGUNGEN BIN ICH SEHR DANKBAR!!" 10156 PRINT"[211]O .. UND NUN LOS!" 10160 PRINT"*** BITTE EINE [212]ASTE ***":WAIT203,63:GOTO100 10500 : 10504 IFOB(NO)<>-2THENPRINTS$(29):GOTO100 10508 IFNO=45ORNO=53THENPRINTS$(33):OB(NO)=0:ZZ=ZZ-1:GOTO100 10510 IFNO=20ORNO=34ORNO=35ORNO=52ORNO=77ORNO=78THENPRINTS$(34):OB(NO)=0:S=1 10511 IFS=1THENZZ=ZZ-1:S=0:GOTO100 10512 PRINTS$(35):GOTO100 11000 : 11005 IFNO<>81THENPRINTS$(30):GOTO100 11008 IFCP=94ORCP=147ORCP=165ORCP=71ORCP=153ORCP=154ORCP=155ORCP=156THENS=1 11011 IFCP=157ORCP=159ORCP=158ORCP=64ORCP=160ORCP=172THENS=1 11012 : 11013 IFS=1THENPRINTS$(31):S=0:GOTO100 11015 IFCP=81ORCP=166ORCP=68ORCP=167ORCP=55ORCP=56ORCP=168ORCP=57ORCP=72THENS=1 11017 IFCP=169ORCP=170ORCP=73ORCP=171ORCP=74ORCP=75ORCP=173ORCP=63ORCP=76THENS=1 11018 IFCP=77ORCP=174ORCP=90ORCP=175ORCP=103ORCP=104ORCP=176THENS=1 11019 IFS=1THENPRINTS$(45):S=0:GOTO100 11035 PRINTS$(32):GOTO100 11500 : 11506 PRINT"[147][196]U TRAEGST:" 11507 PRINT:IFZZ=0THENPRINT"[150][206]ICHTS":GOTO100 11510 FORI=9TOLO:IFOB(I)<>-2THEN11520 11512 IFI=38THENPRINT"[157]";PF; 11514 PRINT"[150]";OB$(I) 11520 NEXTI 11522 GOTO100 12000 : 12004 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 12010 IFNO=76ORNO=71ORNO=63ORNO=62ORNO=28ORNO=46ORNO=12THEN12020 12015 PRINTS$(5):GOTO100 12020 IFNO=76ANDCP=73THENPRINTS$(84):OB(76)=0:GOTO100 12025 IFNO=71ANDCP=34THENPRINTS$(85);S$(86):OB(71)=0:GOTO100 12030 IFNO=63ANDCP=138THENPRINTS$(87);S$(88):OB(63)=0:GOTO100 12035 IFNO=62ANDCP=135ANDOB(11)=-2THENPRINTS$(89):OB(62)=0:GOTO100 12036 IFNO=62THENPRINTS$(14):GOTO100 12040 IFNO=28ANDCP=59THENPRINTS$(90):OB(28)=0:GOTO100 12045 IFNO=46THENPRINTS$(91):GOTO100 12050 IFNO=12THENPRINTS$(92):GOTO100 12500 : 12502 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 12504 IFNO=12ORNO=22ORNO=72ORNO=70ORNO=74ORNO=57ORNO=56ORNO=41THEN12520 12506 IFNO=17ORNO=25ORNO=62ORNO=43ORNO=73ORNO=21THEN12520 12508 PRINTS$(5):GOTO100 12520 PRINT"[153][215]IE ?":GOTO100 13500 : 13505 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 13510 IFNO=61THEN13520 13515 PRINTS$(5):GOTO100 13520 IFCP=133THENPRINTS$(133):OB(61)=137:P(137,3)=0:GOTO100 13525 IFCP=137THENPRINTS$(133):P(137,3)=134:OB(61)=133:GOTO100 14000 : 14005 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 14006 IFNO=61ORNO=79ORNO=50THEN14010 14007 PRINTS$(5):GOTO100 14010 IFNO=61ANDRA=1THENPRINTS$(117):PRINTS$(118):P(137,2)=140:S=1 14011 IFS=1THENS=0:OB$(79)=OB$(84):GOTO100 14015 IFNO=61ANDCP=137THENPRINTS$(119):GOTO100 14020 IFNO=79ANDRA=0THENPRINTS$(119):GOTO100 14025 IFNO=79ANDRA=1ANDOB(61)=CPTHENPRINTS$(120):GOTO100 14030 IFNO=50ANDCP=121ANDOB(51)=0THENPRINTS$(134):OB(93)=-1:S=1 14035 IFS=1THENS=0:OB$(51)=OB$(93):OB(51)=CP:GOTO100 14040 IFNO=50ANDCP=121ANDOB(55)=0THENPRINTS$(135):OB$(55)=OB$(92):S=1 14041 IFS=1THENS=0:OB(92)=-1:OB(55)=CP:GOTO100 14050 PRINTS$(121):GOTO100 14500 : 14504 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 14510 IFNO=14ORNO=32ORNO=38THEN14520 14511 IFNO=10ORNO=12ORNO=17ORNO=18ORNO19ORNO=24ORNO=26ORNO=25ORNO=27THENS=1 14512 IFNO=28ORNO=29ORNO=33ORNO=36ORNO=37ORNO=41ORNO=43ORNO=46ORNO=49THENS=1 14513 IFNO=54ORNO=56ORNO=57ORNO=58ORNO=60ORNO=61ORNO=62ORNO=63ORNO=64THENS=1 14514 IFNO=67ORNO=68ORNO=69ORNO=70ORNO=71ORNO=72ORNO=73ORNO=74ORNO=75THENS=1 14515 IFNO=76ORNO=79ORNO>80THENS=1 14516 IFS=1THENS=0:PRINTS$(5):GOTO100 14519 PRINTS$(1):OB(NO)=0:ZZ=ZZ-1:GOTO100 14520 : 14525 IFNO=32ANDCP=18ANDOB(88)<>-1THENPRINTS$(76):OB(88)=-1:OB$(70)=OB$(88):S=1 14526 IFS=1THENS=0:ZZ=ZZ-1:OB(32)=CP:GOTO100 14530 IFNO=32ANDCP=28ANDOB(90)<>-1THENPRINTS$(77):OB(90)=-1:OB$(72)=OB$(90):S=1 14531 IFS=1THENS=0:ZZ=ZZ-1:OB(32)=CP:GOTO100 14535 IFNO=32ANDCP=49ANDOB(25)=CPTHENPRINTS$(78);S$(79):OB(25)=0:OB(32)=0:S=1 14536 IFS=1THENS=0:ZZ=ZZ-1:GOTO100 14540 IFNO=32ANDCP=156ANDOB(43)=CPTHENPRINTS$(80):ZZ=ZZ-1:OB(32)=0:S=1 14541 IFS=1THENS=0:OB(43)=0:GOTO100 14545 IFNO=32THENPRINTS$(1):ZZ=ZZ-1:OB(32)=0:GOTO100 14550 IFNO=38THENPRINTS$(83):S=1:PF=PF-1:IFPF=0THENZZ=ZZ-1:OB(38)=0 14551 IFS=1THENS=0:GOTO100 14555 IFNO=14ANDCP=87ANDOB(89)=0THENPRINTS$(81):ZZ=ZZ-1:OB(14)=CP:S=1 14556 IFS=1THENS=0:OB(89)=-1:OB$(74)=OB$(89):GOTO100 14560 IFNO=14ANDCP=63ANDOB(73)=CPTHENPRINTS$(82):ZZ=ZZ-1:OB(73)=0:S=1 14561 IFS=1THENS=0:OB(14)=CP:GOTO100 14565 IFNO=14THENPRINTS$(1):ZZ=ZZ-1:OB(14)=0:GOTO100 15000 : 15004 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 15006 IFNO=28THENPRINTS$(10):PRINTS$(11):PRINTS$(12):GOTO100 15008 IFNO=46THENPRINTS$(13):GOTO100 15010 IFNO=62THENPRINTS$(14):GOTO100 15012 IFNO=63THENPRINT"[147]";S$(15):PRINTS$(16):PRINTS$(17):PRINTS$(18):S=1 15013 IFS=1THENS=0:GOTO15030 15014 PRINTS$(5):GOTO100 15030 INPUT"[153][215]IE IST MEIN [206][193][205][197]";NA$:NA=NA+1 15033 IFNA$="USEBIS"ORNA$="[213][211][197][194][201][211]"THEN15038 15034 IFNA>5THENPRINTS$(88):OB(63)=0:GOTO100 15035 PRINTS$(129):GOTO100 15038 PRINTS$(130);S$(131):PRINTS$(88):OB(63)=0:OB(65)=CP:GOTO100 15500 : 15504 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 15510 IFNO=12ORNO=17ORNO=18ORNO=21ORNO=25ORNO=37ORNO=71ORNO=72THEN15520 15511 IFNO=73ORNO=76THEN15520 15515 PRINTS$(5):GOTO100 15520 PRINT"[153][204]EGE DAS [198]UTTER HIN !":GOTO100 16000 : 16004 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 16006 IFNO=9THENPRINTS$(19):OB(12)=CP:OB(9)=0:GOTO100 16008 IFNO=17ORNO=18ORNO=21ORNO=22ORNO=25ORNO=33ORNO=37THENPRINTS$(20):GOTO100 16010 IFNO=43ORNO=41ORNO=45ORNO=46ORNO=56ORNO=57ORNO=70THENPRINTS$(20):GOTO100 16011 IFNO=71ORNO=72ORNO=73ORNO=74ORNO=75ORNO=76THENPRINTS$(20):GOTO100 16012 IFNO=16ANDOB(91)=-1THENPRINTS$(21):GOTO100 16014 IFNO=16THENPRINTS$(1):OB$(16)=OB$(91):OB(91)=-1:FE=1:GOTO100 16049 PRINTS$(6):GOTO100 16500 : 16502 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 16503 IFOB(14)<>-2THENPRINT"[153][215]OMIT ?":GOTO100 16504 IFNO=26ANDOB(85)=-1THENPRINTS$(22):GOTO100 16506 IFNO=26THENPRINTS$(1):OB$(26)=OB$(85):OB(85)=-1:P(57,2)=152:S=1 16507 IFS=1THENS=0:P(169,3)=152:P$(179)="UNTER DER [212]ANNE":GOTO100 16510 IFNO=24ANDOB(86)=-1THENPRINTS$(23):GOTO100 16512 IFNO=24THENPRINTS$(1):OB$(24)=OB$(86):OB(86)=-1:GOTO100 16514 IFNO=29THENPRINTS$(24):GOTO100 16516 PRINTS$(5):GOTO100 17000 : 17004 IFNOTFNTR(CP)THENPRINTS$(3):GOTO100 17006 IFNO<>42THENPRINTS$(5):GOTO100 17007 IFSE=0THENPRINTS$(49):GOTO100 17008 PRINTS$(1):SE=0:GOTO100 17500 : 17505 PRINT"[147]" 17506 PRINTS$(153);S$(154):GOTO100 20000 INPUT"[147][198]ILENAME";N$ 20009 PRINT"[203]ASSETTE ODER [196]ISKETTE?" 20010 GETK$:IFK$="D"ORK$="[196]"THEN21000 20020 IFK$="K"ORK$="[203]"THEN22000 20025 GOTO20010 21000 OPEN2,8,2,N$+",S,W":OPEN15,8,15:INPUT#15,A,A$:IFA$<>"OK"THEN29000 21100 FORI=9TOLO:PRINT#2,OB(I):PRINT#2,OB$(I):NEXTI:PRINT#2,CP:PRINT#2,ZZ 21101 PRINT#2,LG:PRINT#2,LI:PRINT#2,SE:PRINT#2,RI:PRINT#2,BP:PRINT#2,FA 21102 PRINT#2,FE:PRINT#2,KL:PRINT#2,Z:PRINT#2,PF:PRINT#2,BU:PRINT#2,RA 21103 PRINT#2,NA 21104 PRINT#2,SP:FORM=1TO3:PRINT#2,Y(M):NEXTM 21108 FORI=1TOCP:FORJ=0TO3:PRINT#2,P(I,J):NEXTJ,I:PRINT#2,DR:PRINT#2,PG 21200 CLOSE2:CLOSE15:GOTO100 22000 OPEN2,1,1,N$:GOTO21100 25000 INPUT"[198]ILENAME";N$ 25005 PRINT"[203]ASSETTE ODER [196]ISKETTE?" 25010 GETA$:IFA$="D"ORA$="[196]"THEN26000 25012 IFA$="K"ORA$="[203]"THEN27000 25014 GOTO25010 26000 OPEN2,8,2,N$+",S,R":GOTO28000 26100 FORI=9TOLO:INPUT#2,OB(I):INPUT#2,OB$(I):NEXTI 26101 INPUT#2,CP:INPUT#2,ZZ:INPUT#2,LG:INPUT#2,LI:INPUT#2,SE:INPUT#2,RI 26102 INPUT#2,BP:INPUT#2,FA:INPUT#2,FE:INPUT#2,KL:INPUT#2,Z:INPUT#2,PF 26103 INPUT#2,BU:INPUT#2,RA:INPUT#2,NA:INPUT#2,SP:FORM=1TO3:INPUT#2,Y(M):NEXTM 26104 FORI=1TOCP:FORJ=0TO3:INPUT#2,P(I,J):NEXTJ,I:INPUT#2,DR:INPUT#2,PG 26120 CLOSE2:CLOSE15:GOTO40 27000 OPEN2,1,0,N$:GOTO26100 28000 OPEN15,8,15:INPUT#15,A,A$:IFA$="OK"THEN26100 28010 IFA$="FILE NOT FOUND"THEN28100 28020 IFA$="DRIVE NOT READY"THEN28110 28030 IFA$="FILE TYPE MISMATCH"THEN28120 28050 PRINTA$:END 28100 PRINT"[197]IN [198]ILE DIESES [206]AMENS EXISTIERT NICHT!" 28110 INPUT"[198]ILENAME";N$:GOTO28200 28111 PRINT"[196]ISKETTE EINLEGEN!":PRINT,"[198]ERTIG?" 28112 GETX$:IFX$=""THEN28112 28113 GOTO28110 28120 PRINT"[203]EIN [196]ATEN-[198]ILE!":GOTO28110 28150 PRINTA$:STOP 28200 CLOSE2:CLOSE15:GOTO26000 29000 CLOSE2:CLOSE15:IFA$="WRITE PROTECT ON"THEN29100 29010 IFA$="DRIVE NOT READY"THEN29200 29030 IFA$="FILE EXISTS"THEN29300 29040 IFA$="FILE TYPE MISMATCH"THEN29400 29050 PRINT"A$:S[212] 29060 [137]20000 29100 [153]"STR$IESE STR$ISKETTE IST (null)CHREIB-GESCHUETZT" 29110 [153]"PEEKITTE EINE ANDERE STR$ISKETTE EINLEGEN":[153],"ASCERTIG?" 29120 [161]X$:[139]X$[178]""[167]29120 29130 [137]21000 29200 [153]"STR$ISKETTE EINLEGEN!":[153],"ASCERTIG?":[137]29120 29300 [153]"VALIN ASCILE DIESES (null)AMENS EXISTIERT BEREITS" 29310 [153]"SOLL ES UEBERSCHRIEBEN WERDEN (J/N)?" 29320 [161]X$:[139]X$[178]"J"[167]N$[178]"@0:"[170]N$:[137]21000 29330 [139]X$[178]"N"[167]20000 29340 [137]29320 29400 [153]"STR$IESER (null)AME IST VON EINEM ANDEREN"," ASCILE-(null)YP GELEGT" 29410 [129]A[178]1[164]2000:[130]:[137]20000 30000 : 30004 [153]"LOADSYSSTR$EIN (null)OERPER IST SO GESCHWAECHT, DASS STR$U STR$ICH NICHT MEHR"; 30005 [153]" BEWEGEN KANNST.":[153]"STR$U STIRBST QUALVOLL !" 30006 [129]I[178]1[164]3000:[130]I:[137]31000 30010 [153]"LOADSYSSTR$U BIST LEIDER ERTRUNKEN!" 30011 [129]I[178]1[164]2000:[130]I:[137]31000 30020 [153]"LOADSYS....UND DER (null)(null)(null)(null)ASC FORDERT EIN NEUES (null)(null)ASCVAL(null) !!!" 30021 [129]I[178]1[164]3000:[130]I:[153]"LOAD":[137]31000 30030 [153]"LOADSYSSTR$IE (null)(null)RIGHT$(null)(null)VALCLOSEHAT STR$ICH GEFRESSEN.":[129]I[178]1[164]3000:[130]I:[137]31000 31000 : 31002 [153]"LOAD(null)EUES (null)PIEL ? (J/N)" 31003 [161]SP$:[139]SP$[178]""[167]31003 31004 [139]SP$[178]"J"[167][156]:[140]:[137]1 31005 [139]SP$[178]"N"[167]31007 31006 [137]31003 31007 [153]"(null)IE SCHADE.":[158]64738 32000 [153]"LOAD*** LEFT$VAL(null)(null)(null)RIGHT$LENLEFT$VAL(null)CLOSECHR$(null)(null)VALLEN(null)(null)(null)(null)(null)LENLEFT$CLOSE***" 32001 [129]I[178]1[164]15:[151]53280,I:[129]S[178]1[164]200:[130]S:[130]I:[151]53280,2:[151]53281,2 32002 [153]"STR$U HAST DAS ATNBENTEUER HERVORRAGEND GELOEST!" 32003 [153]"VALS GRATULIEREN STR$IR DIE ATNUTOREN:" 32004 [153]"ASC.(null)ESSING UND VAL.(null)HORAND" 32005 [129]I[178]1[164]4000:[130]I:[153]"* PEEKITTE EINE (null)ASTE *":[146]203,63 32006 [158]64738 50000 : 50005 NP[178]180:LO[178]98:NV[178]38:CP[178]177:CS[178] 0:NN[178]84:SS[178]168:ZZ[178]0:PF[178]5 50010 [134]P(NP,4),P$(NP),VB$(NV),OB$(LO),OB(LO),NO$(NN),S$(SS) 50020 [129]I[178]1[164]NP:[129]J[178]0[164]3:[135]P(I,J):[130]J,I 50030 [129]I[178]1[164]NP:[135]P$(I):[130]I 50040 [129]I[178]9[164]LO:[135]OB$(I):[130]I 50050 [129]I[178]9[164]LO:[135]OB(I):[130]I 50060 [129]I[178]1[164]NN:[135]NO$(I):[130]I 50070 [129]I[178]0[164]3:[135]D$(I):[130]I 50080 [129]I[178]1[164]NV:[135]VB$(I):[130]I 50090 [129]I[178]1[164]SS:[135]S$(I):[130]I 51000 : 51002 [131] 0,2,4,0,1,0,5,0,0,4,7,0,3,5,8,1,4,6,9,2,5,0,10,0,177,8,0,3,7,9,0,4 51003 [131] 8,10,0,5,9,0,0,6 51005 [131] 0,0,16,0,0,0,20,0,0,0,24,0,0,15,27,0,14,16,28,0,15,17,0,0 51006 [131] 16,18,30,0,17,19,31,0,18,20,32,0,19,21,33,0 51008 [131] 20,22,34,0,21,23,35,0,22,24,36,0,23,25,37,0,24,26,38,0,25,0,39,0 51009 [131] 0,28,40,14,27,29,41,15,28,30,0,0,0,0,0,0 51011 [131] 0,0,0,0,31,0,45,19,0,0,46,20,0,35,47,21,34,36,48,22 51012 [131] 35,37,49,23,36,38,50,24,37,39,51,25,0,0,0,0,0,41,53,27 51014 [131]40,42,54,28,41,43,55,0,42,44,56,30,0,0,0,0,44, 0,0,32,0,0,59,33 51015 [131] 0,48,60,34,0,0,0,0,48,0,62,36,0,51,63,37 51017 [131] 0,0,0,0,0,0,0,0,0,54,66,40,53,55,67,41,54,56,68,42,55,57,0,43 51018 [131] 56,0,0,44,0,0,0,0,0,60,72,46,0,0,0,0 51020 [131] 0,0,0,0,61,63,75,0,62,64,0,50,63,65,160,51,64,0,78,52,0,67,79,53 51021 [131] 66,68,80,54,67,149,81,55,167,70,82,168,69,71,0,169 51023 [131] 70,170,84,153,0,73,0,59,72,74,0,60,73,75,0,61,74,0,0,62,173,77,89,0 51024 [131] 76,161,90,0,174,0,91,65,0,80,92,66,79,81,93,67 51026 [131] 80,148,94,68,166,0,95,69,0,84,0,0,83,0,97,71,0,86,0,0 51027 [131] 85,87,0,0,86,0,0,172,87,89,101,173,88,90,102,76 51028 [131] 89,0,103,77 51030 [131] 175,0,104,78,0,93,0,79,92,94,0,80,93,0,0,81,165,96,0,82,95,97,0,0 51031 [131] 96,98,0,84,97,99,0,0,98,100,0,0,99,101,0,0 51033 [131] 100,102,0,88,101,103,0,89,102,176,0,90,0,0,0,91,0,0,106,98 51034 [131] 0,0,108,105,0,108,115,0,107,109,116,106,108,0,117,0,0,111,0,0 51036 [131] 110,112,0,0,111,113,0,0,112,114,0,0,113,115,123,0,114,116,0,107 51037 [131] 115,117,124,108,116,118,0,109,117,119,125,0,118,120,0,0,119,121,0,0 51039 [131] 120,122,0,0,121,0,0,0,0,0,126,114,0,0,127,116,0,0,128,118 51040 [131] 0,0,129,123,0,0,0,124,0,0,133,125,0,130,134,126,129,131,0,0 51042 [131] 130,0,0,0,0,133,0,0,132,0,136,128,0,0,137,129,0,0,138,131 51043 [131] 0,0,139,133,146,0,0,134,0,0,0,135,0,0,141,136,0,0,142,137 51045 [131] 0,0,146,139,0,143,0,140,142,144,0,0,143,145,0,0,0,0,0,0,0,0,137,141 51046 [131] 0,165,0,148,81,0,147,178,68,167,0,0,0,151,178,0,150,179 51048 [131] 0,0,0,0,169,57,0,154,71,0,153,155,0,0,154,156,0,0,155,157,172,0 51056 [131] 156,158,0,0,157,0,0,159,0,160,158,0,159,0,180,64,77 51058 [131] 174,0,0,0,0,163,180,0,164,0,162,163,0,0,104,0,95,0,166,0,82,165,167 51059 [131] 149,69,166,0,0,169,69,0,168,0,70,152,71,171,0,0 51061 [131] 170,172,0,0,171,173,87,156,172,76,88,0,161,78,175,0 51062 [131] 0,91,0,174,103,0,0,0,0,7,0,0,0,0,148,150,151,58,0,0,0,0,162,160 51066 [131] "AUF EINER (null)ICHTUNG","IM (null)ALD","IM (null)ALD","IM (null)ALD","IM (null)ALD" 51067 [131] "IM (null)ALD","AUF EINER (null)ICHTUNG","IM (null)ALD","AUF EINER (null)ICHTUNG" 51068 [131] "IM (null)ALD","AUF EINEM ASCELD","IM (null)ALD","AUF EINER (null)IESE" 51069 [131] "IM ASCARNWALD","IM ASCARNWALD","IM OEDEN CHR$RASLAND","IN EINER (null)TEPPE" 51070 [131] "IN EINER (null)TEPPE","IM ASCARNWALD","IN EINER (null)TEPPE","IN EINER (null)TEPPE" 51071 [131] "IN EINER (null)TEPPE","IM CHR$RASLAND","IM CHR$RASLAND","IN DER (null)TEPPE" 51072 [131] "IM ASCARNWALD","IM ASCARNWALD","IM ASCARNWALD","IM LICHTEN (null)ALD" 51073 [131] "IM (null)UMPF","IM (null)UMPF","IM ASCARNWALD","IM ASCARNWALD","IM ASCARNWALD" 51074 [131] "IM LICHTEN (null)ALD","IM ASCARNWALD","AUF EINER (null)ICHTUNG" 51075 [131] "IM LICHTEN (null)ALD","IM (null)UMPF","IM ASCARNWALD","IM (null)PINNENNEST" 51076 [131]"IM ASCARNWALD","AUF EINER (null)ICHTUNG","IM (null)UMPF","IM LICHTEN (null)ALD" 51077 [131]"IM LICHTEN (null)ALD","IM LICHTEN (null)ALD","IM (null)UMPF","IM ASCARNWALD" 51078 [131]"IM ASCARNWALD","IM (null)UMPF","IM (null)UMPF","IM ASCARNWALD","IM ASCARNWALD" 51079 [131]"AM ASCLUSS","AM ASCLUSS","AM ASCLUSS","IM (null)ASSERFALL","AUF EINER (null)ICHTUNG" 51080 [131]"IM (null)UMPF","IM (null)UMPF","IM ASCARNWALD","AM ASCLUSS","AM ASCLUSS" 51081 [131]"IM ASCARNWALD","AUF EINER (null)ICHTUNG","AUF EINER (null)ICHTUNG" 51082 [131]"AM ASCLUSS","IM LICHTEN (null)ALD","IM LICHTEN (null)ALD","AM ASCLUSS","AM ASCLUSS" 51083 [131]"AM ASCLUSS","AM ASCLUSS","AM ASCLUSS","AM ASCLUSS","AM ASCLUSS" 51084 [131]"IM LICHTEN (null)ALD","IM ASCARNWALD","IM ASCARNWALD","AM ASCLUSS" 51085 [131]"IM HUEGELIGEN CHR$ELAENDE","IM HUEGELIGEN CHR$ELAENDE","IM ASCARNWALD" 51086 [131]"IM ASCARNWALD","IM ASCARNWALD","IM HUEGELIGEN CHR$ELAENDE","IM ASCARNWALD" 51087 [131]"IM HUEGELIGEM CHR$ELAENDE","AM ASCLUSS","IM ASCARNWALD","AM CHR$EBIRGE" 51088 [131]"IM ASCARNWALD","AN DER (null)UELLE","AM CHR$EBIRGE","IM ASCARNWALD","AM CHR$EBIRGE" 51089 [131]"VOR DER LEFT$OEHLE","AM CHR$EBIRGE","AM CHR$EBIRGE","IM ASCARNWALD" 51090 [131]"AM CHR$EBIRGE","AM ASCLUSS","AM ASCLUSS","IM DUNKLEN CHR$ANG","VOR DEM (null)OR" 51091 [131]"VOR EINER (null)ISCHE","IM BREITEM CHR$ANG","VOR EINER (null)ISCHE" 51092 [131]"AM (null)TOLLENENDE","IM BREITEM (null)TOLLEN","AM (null)ASSERSCHACHT" 51093 [131]"IM BREITEN (null)TOLLEN","AN EINER CHR$ABELUNG","IM CHR$EWOELBE" 51094 [131]"IM CHR$EWOELBEGANG","IM CHR$EWOELBE","AN EINER CHR$ABELUNG" 51095 [131]"IM BREITEN (null)TOLLEN","AM (null)ASSERSCHACHT","IM BREITEN CHR$ANG" 51096 [131]"AM (null)TOLLENENDE","IN DER (null)AVERNE","IN EINER LEFT$OEHLE","IM ASCELSENDOM" 51097 [131]"IM (null)ERBINDUNGSGANG","IM (null)ERBINDUNGSGANG","AM (null)ASSERSCHACHT" 51098 [131]"IM (null)UERGANG","IM (null)UERGANG","IM (null)UERGANG","IM (null)UERGANG","IM (null)UERGANG" 51099 [131]"AM (null)ASSERSCHACHT","IM (null)ORRAUM","IM (null)TOLLEN" 51100 [131]"IM (null)TOLLEN","IN FUERSTLICHEN CHR$EMAECHERN","IM (null)TOLLEN" 51101 [131]"IN EINER GROSSEN LEFT$OEHLE","IM (null)TOLLEN","IM (null)ORRAUM" 51102 [131]"IN FINSTEREN (null)AEUMEN","IN FINSTEREN (null)AEUMEN","AUF EINER ASCALLTUER" 51103 [131]"IM (null)UNNEL","BEI DER (null)UELLE","AUF DEM ASCLUSS","AUF DER LEFT$AENGEBRUECKE" 51104 [131]"AUF DEM ASCLUSS","AUF DEM ASCLUSS","AUF DER (null)ANNE" 51105 [131]"AUF DEM ASCLUSS","AUF DEM ASCLUSS" 51106 [131]"AUF DEM ASCLUSS","AUF DEM ASCLUSS","AUF DEM ASCLUSS","AUF DEM ASCLUSS" 51107 [131]"AUF DEM ASCLUSS","AUF DEM ASCLUSS","AUF DER PEEKRUECKE","AUF DEM ASCLUSS" 51108 [131]"AUF DEM ASCLUSS","AUF DEM ASCLUSS","AN DER (null)UELLE","AM ASCLUSS","AM ASCLUSS" 51109 [131]"AM ASCLUSS","AM ASCLUSS","AM ASCLUSS","AM ASCLUSS","AM ASCLUSS","AM ASCLUSS" 51110 [131]"AM ASCLUSS","AM ASCLUSS","AM ASCLUSS","IN DER LEFT$UETTE" 51111 [131]"UNTER DER LEFT$AENGEBRUECKE","AUF DEM ASCLUSS","UNTER DER PEEKRUECKE" 51112 [131]"ALTE (null)EL-(null)AMPE","LEFT$UETTE","(null)CHWERT","(null)EGASUS","(null)UENZEN","ATNXT","ASCACKEL" 51113 [131]"LEFT$OELZER","(null)HYTON","VALLEFANTEN","(null)OCHSTELLE","PEEKALKEN","(null)IGER" 51114 [131]"(null)PINNE","(null)ETZ","PEEKAUM","PEEKOA","(null)ANNE","(null)ATE","ALTER (null)ANN" 51115 [131]"VALICHE","PEEKOOT","(null)UDER","(null)PEER","ATNMEISEN","VALRDBEEREN" 51116 [131]"(null)ARTOFFELN","(null)OTIZ","FLEISCHFRESSENDE (null)FLANZE", "(null)FEILE","PEEKOGEN" 51117 [131]"MAGISCHER (null)ING","(null)(null)(null)(null)(null)(null)","(null)EIL","(null)ROKODILE","VALIER" 51118 [131]"(null)UERMER","(null)WERGE","CHR$RUBENLICHT","(null)RUHE","(null)UFTSCHACHT","ASCORM" 51119 [131]"(null)ILBERSTUECKE","ATNEPFEL","(null)RCHIDEEN","(null)CHMELZOFEN","CHR$OLDSTUECKE" 51120 [131]"(null)TEINFRESSER","ASCLUGDRACHEN","(null)TATUE","(null)REUZHACKE","(null)KELETT" 51121 [131]"(null)ORE","(null)AECHTER","LEFT$ERRSCHER","(null)HRON","PEEK(null)LENLEFT$CLOSESTR$VAL(null) (null)VALRIGHT$(null)LEFT$VALRIGHT$(null)" 51122 [131]"(null)ISTE","RIGHT$(null)(null)LENLEFT$(null)RIGHT$ASC(null)","ASCALLTUER","(null)UNNEL","(null)ARANTEL","ATNFFEN" 51123 [131]"(null)UMA","(null)ATTEN","(null)CORPION","(null)ERMITEN","(null)REBSE","(null)AESE","PEEKANANEN" 51124 [131]"CHR$EROELLHALDE","(null)ERGAMENT","(null)CHLUESSEL","OFFENE (null)RUHE" 51125 [131]"GEOFFNETE (null)ISTE","STR$URCHBRUCH","GEFAELLTE (null)ANNE","GEFAELLTER PEEKAUM" 51126 [131]"TOTE (null)PINNE","TOTE (null)ARANTEL","TOTER (null)CORPION","TOTER (null)UMA" 51127 [131] "BRENNENDE LEFT$OELZER","CHR$OLDSCHLUESSEL","(null)ILBERSCHLUESSEL" 51130 [131]"BRENNENDE ASCACKEL","BRENNENDER PEEKALKEN","BRENNENDE (null)FEILE" 51132 [131]"LEUCHTENDES CHR$RUBENLICHT","(null)FEILE" 51156 [131] 5,7,176,0,18,80,23,29,33,35,37,37,25,41,41,43,49,57,59,59,62,64,104 51157 [131] 85,82, 42,96,177,84,46,83,92,98,78,156,3, 68,106,106,107,109,110 51158 [131] 111,10,26,121,122,124,130,131,125,144,133,135,138,138,0 51159 [131] 140,132,145,146,18,34,28,63,87,129,73,89,53,137,0,0,0,0,0,0,0,0,0,0 51160 [131] 0,0,0,0,0,0,0,0,0 51171 [131] N,S,O,W,NORD,SUED,OST,WEST,LAMP,HUET,SCHW,PEGA,MUEN,AXT,FACK,HOEL 51172 [131] PHYT,ELEF,KOCH,BALK,TIGE,SPIN,NETZ,BAUM,BOA,TANN,KATE,MANN,EICH,BOOT 51173 [131] RUDE,SPEE,AMEI,ERDB,KART,NOTI,PFLA,PFEI,BOGE,RING,ZYKL,SEIL,KROK 51174 [131] EIER,WUER,ZWER,LICH,TRUH,LUFT,FORM,SILB,AEPF,ORCH,OFEN,GOLD,STEI 51175 [131] FLUG,STAT,KREU,SKEL,LORE,WAEC,HERR,THRO,BUCH,KIST,INSC,FALL,TUNN 51176 [131] TARA,AFFE,PUMA,RATT,SCOR,TERM,KREB,KAES,BANA,GERO,PERG,WASS,RUES 51177 [131] FURT,FLUS 51191 [131] "(null)ORDEN","(null)UEDEN","(null)STEN","(null)ESTEN" 51201 [131] GEHE,NIMM,SCHA,TAUS,BEFE,DREH,FUEL,OEFF,REIT,ZUEN,LEGE,KLET,SPRI 51202 [131] BENU,LIES,LESE,HEBE,TRAG,ESSE,ISS,TRIN,LAUF,RENN,INVE,VERJ,TOET 51203 [131] SAVE,SCHI,LADE,RAEU,WERF,WIRF,FRAG,FUET,REIB,FAEL,LOES,HILF 51214 [131]"PRINT(null).(null).","PRINTSTR$AS KANNST DU MID$VAL(null)(null)(null) NICHT MACHEN" 51215 [131]"PRINTSTR$AS SIEHST STR$U HIER NICHT.","PRINTSTR$U SIEHST ETWAS" 51217 [131]"PRINT(null)ACH' STR$ICH NICHT LAECHERLICH!" 51218 [131] "PRINT(null).(null). (null)ICHTS PASSIERT." 51219 [131] "PRINTSTR$AS KANNST STR$U NICHT TRAGEN.","PRINTSTR$U BIST GEBISSEN WORDEN." 51220 [131] "PRINTSTR$AS IST VIEL ZU SCHWER." 51221 [131] "PRINTLEFT$ALTE STR$ICH AM ASCLUSS UND FINDE DIE BEWACHTE LEFT$OEHLE.", 51222 [131]"PRINTATNCHTE AUF STR$EIN ASCEUER! (null)IEL CHR$LUECK!" 51223 [131]"PRINTCHR$IB' UNS STR$EIN (null)VALCHR$ATN(null)(null)(null)! UND LEGE STR$EINE ASCATNLEN(null)VAL(null) HIN." 51224 [131]"PRINTRIGHT$CH LASSE STR$ICH NICHT DURCH." 51225 [131]"PRINTLEFT$ALLO ASC(null)VAL(null)STR$VAL(null)! STR$EIN (null)(null)(null) SOLL BELOHNT WERDEN." 51226 [131]"PRINTSTR$U MUSST ABER ZUVOR NOCH EIN (null)ATNVAL(null)(null)VAL(null) LOESEN." 51227 [131]"PRINT(null)ENN STR$U MIR (null)VALRIGHT$(null)VAL(null)CLOSE(null)AMEN NENNEN KANNST, GEBE ICH STR$IR " 51228 [131] "PRINT*** STR$ATN(null) PEEK(null)LENLEFT$CLOSESTR$VAL(null)CLOSE(null)VALRIGHT$(null)LEFT$VALRIGHT$(null) ***" 51229 [131]"PRINTSTR$IE (null)AMPE VERSCHWINDET UND ES ERSCHEINT *(null)VALCHR$ATN(null)(null)(null)*" 51230 [131] "PRINTPEEKEI (null)IEREN SOLLTEST STR$U VORSICHTIG SEIN." 51231 [131] "PRINTSTR$IE LEFT$OELZER BRENNEN SCHON." 51232 [131] "PRINTSTR$IE (null)ANNE IST SCHON GEFAELLT." 51233 [131] "PRINTSTR$ER PEEKAUM IST SCHON GEFAELLT." 51234 [131] "PRINTSTR$U BIST NICHT PEEK(null)(null)RIGHT$ASCATN(null)RIGHT$(null)(null)!" 51235 [131]"PRINTSTR$AS TRAEGST STR$U SCHON." 51236 [131]"PRINTSTR$IE (null)UNDE HAT SICH ENTZUENDET!" 51237 [131]"PRINTSTR$U KANNST NICHT MEHR TRAGEN !" 51238 [131]"PRINT LAESST STR$ICH NICHT." 51239 [131]"PRINTSTR$U TRAEGST DAS NICHT." 51240 [131]"PRINTSTR$AS KANNST STR$U NICHT TRINKEN." 51241 [131]"PRINTATNAH! STR$AS TUT GUT !","PRINTLEFT$IER IST KEIN (null)ASSER." 51242 [131]"PRINTRIGHT$GITT! STR$AS SCHMECKT NICHT!","PRINT(null)MMHH! STR$AS IST LECKER!" 51243 [131]"PRINTSTR$AS KANNST STR$U NICHT ESSEN." 51244 [131]"PRINTSTR$AS KANNST STR$U NICHT DREHEN." 51245 [131]"PRINTVALINE (null)EFFNUNG NACH (null)(null)(null)VAL(null) WIRD SICHTBAR." 51246 [131]"PRINTVALS PASSIERT MID$VAL(null)(null)(null) NICHTS." 51247 [131]"PRINTSTR$AS (null)VALCHR$ATN(null)(null)(null) ERHEBT SICH IN DIE (null)UEFTE UND FLIEGT MIT STR$IR DAVON." 51248 [131]"PRINTSTR$ER MAGISCHE (null)ING BEGINNT ZU GLUEHEN." 51249 [131]"PRINTSTR$ER MAGISCHE (null)ING HAT SICH AUFGELOEST." 51250 [131]"PRINTSTR$AS (null)EIL IST AN DEM PEEKAUM FESTGEMACHT." 51251 [131]"PRINTSTR$AS (null)EIL IST AN DER (null)ANNE BEFESTIGT." 51252 [131]"PRINTSTR$AS (null)EIL HAENGT AN EINEM ATNST DER VALICHE." 51253 [131]"PRINTSTR$U KANNST DAS (null)ASSER NICHT ERREICHEN." 51254 [131]"PRINTSTR$A IST NICHTS, WO MAN EIN (null)EIL ANBINDEN KANN." 51255 [131]"PRINTSTR$AS (null)EIL HAENGT AN DER (null)ORE." 51256 [131]"PRINTSTR$AS (null)EIL HAENGT AN EINEM VALISENRING UEBERDER CHR$RUBE." 51257 [131]"PRINTSTR$AS (null)EIL IST SCHON LOS." 51258 [131]"PRINTSTR$U SIEHST EIN CHR$EBIRGE IM (null)(null)(null)VAL(null)." 51259 [131]"PRINTSTR$U SIEHST ENTFERNT IM (null)(null)(null)VAL(null) EINEN (null)(null)LEN(null)(null)(null)AUS EINER LEFT$(null)VALLEFT$(null)VAL KOMMEN." 51260 [131]"PRINTSTR$U HAENGST AM (null)EIL." 51261 [131]"PRINTSTR$ER (null)CHACHT WIRD IMMER ENGER." 51262 [131]"PRINTSTR$U SIEHST EINEN (null)RIGHT$LENLEFT$(null)(null)LENLEFT$RIGHT$(null)(null)VAL(null) ZWISCHEN DEN (null)TEINEN." 51263 [131]"PRINTSTR$U KANNST LEFT$RIGHT$VAL(null) NICHT KLETTERN." 51264 [131]"PRINT(null)(null)ATN(null)(null)LENLEFT$!!! VALIN (null)ASSERSTRUDEL REISST DICHMIT FORT." 51265 [131]"PRINTSTR$ER (null)WERGENKOENIG BEDANKT SICH,UND GIBT DIR DAS CHR$RUBENLICHT." 51266 [131]"PRINTSTR$AS KANNST STR$U NICHT TAUSCHEN." 51267 [131]"PRINT*** (null)UR WER SEINEN CHR$EIST GEBRAUCHT, IST WEISE *** (null)(null)VALPEEKRIGHT$(null)" 51268 [131]"PRINTSTR$URCH ATN(null)PEEKVALRIGHT$(null) KOMMST STR$U AUCH ANS (null)RIGHT$VAL(null)." 51269 [131]"PRINTSTR$AS KANNST STR$U NICHT LESEN." 51270 [131]"PRINTVALS IST DUNKEL !" 51271 [131]"PRINTSTR$IE ASCACKEL BRENNT SCHON.","PRINTSTR$ER PEEKALKEN BRENNT SCHON." 51272 [131]"PRINTSTR$ER (null)FEIL BRENNT SCHON.","PRINTSTR$U BIST KEIN PEEKRANDSTIFTER." 51273 [131]"PRINTSTR$IE LEFT$OELZER SIND RESTLOS VERBRANNT." 51274 [131]"PRINTSTR$ER PEEKALKEN IST VERBRANNT." 51275 [131]"PRINTSTR$AS ASCEUER REICHT NICHT AUS, UM DEN (null)FEILZU ENTZUENDEN." 51276 [131]"PRINTSTR$VAL(null)(null)VAL NACH! STR$U HAST DOCH KEIN ASCEUER!" 51277 [131]"PRINTSTR$AS CHR$RUBENLICHT BRENNT SCHON." 51278 [131]"PRINTSTR$ER (null)WERGENKOENIG GIBT STR$IR (null)VALCHR$ATN(null)(null)(null) ZURUECK." 51279 [131]"PRINTSTR$AS KANNST STR$U LEFT$RIGHT$VAL(null) NICHT TAUSCHEN." 51280 [131]"PRINTSTR$AS CHR$LAS ZERSPRINGT UND DAS (null)ICHT GEHT AUS." 51281 [131]"PRINTHAT SEIN (null)IEL VERFEHLT.","PRINTSTR$U HAST DIE (null)ARANTEL GETROFFEN." 51282 [131]"PRINTSTR$U HAST DEN (null)UMA GETROFFEN." 51283 [131]"PRINTSTR$U HAST DIE PEEKOA VERLETZT.(null)IE VERKRIECHT SICH MIT DEM (null)PEER " 51284 [131]"IM ASCARNWALD." 51285 [131]"PRINTSTR$IE (null)ROKODILE SCHWIMMEN DAVON UND DER (null)PEER VERSINKT." 51286 [131]"PRINTSTR$IE ATNXT ZERQUETSCHT DEM (null)CORPION." 51287 [131]"PRINTSTR$IE (null)ATTEN VERSCHWINDEN IM ASCLUSS." 51288 [131]"PRINTSTR$ER (null)FEIL ZISCHT DURCH DIE (null)UFT." 51289 [131]"PRINTSTR$IE (null)REBSE FLUECHTEN IN DEN ASCLUSS." 51290 [131]"PRINTSTR$IE ATNFFEN SCHWINGEN SICH UNTER LAUTEM CHR$ESCHREI AUF NAHELIEGENDE" 51291 [131]"PRINTPEEKAEUME.","PRINT(null)ER (null)(null) DENKT, IST DES PEEK(null)LENLEFT$VAL(null) NICHT WUERDIG." 51292 [131]"PRINTSTR$ER LEFT$VAL(null)(null)(null)LENLEFT$VAL(null) DREHT SICH UM UND GEHT." 51293 [131]"PRINTSTR$ER (null)AECHTER ZIEHT SICH ZURUECK." 51294 [131]"PRINTSTR$ER ALTE (null)ANN GEHT IN SEINE (null)ATE ZURUECK." 51295 [131]"PRINT(null)ENN STR$U NICHT AUFPASST, VERJAGEN SIE STR$RIGHT$LENLEFT$ !!" 51296 [131]"PRINT(null)VALCHR$ATN(null)(null)(null) LAESST SICH NICHT VERJAGEN." 51297 [131]"PRINT(null)CHNURPS! (null)CHNURPS!","PRINTSTR$AS KANNST STR$U NICHT VERFUETTERN." 51298 [131]"PRINTSTR$IE (null)HYTON GIBT STR$IR DEN (null)EG FREI." 51299 [131]"PRINTSTR$ER VALLEFANT LAEUFT KAUEND WEITER." 51300 [131]"PRINTSTR$IE FLEISCHFRESSENDE (null)FLANZE GIBT STR$IR DEN (null)EG FREI." 51301 [131]"PRINTSTR$IE ATNFFEN FREUEN SICH, UND LAUFEN WEG." 51302 [131]"PRINTSTR$IE (null)ATTEN VERSCHWINDEN." 51303 [131]"PRINTSTR$IE (null)REBSE GEBEN DEN (null)EG FREI." 51304 [131]"PRINTSTR$U BIST IN EINER PEEKAUMKRONE." 51305 [131] "PRINTSTR$U BIST IM (null)IPFEL EINER (null)ANNE." 51306 [131]"PRINTSTR$U BIST GANZ OBEN IN DERCLOSEVALICHE.(null)EBER STR$IRIST BLAUER LEFT$IMMEL." 51307 [131]"PRINTSTR$U KANNST STR$ICH NICHT MEHR HALTEN......" 51308 [131]"PRINTSTR$U KOMMST NICHT DRAN, DER (null)CHACHT IST ZU HOCH." 51309 [131]"PRINTSTR$U STEHST AUF DER (null)TATUE." 51310 [131]"PRINT(null)IE (null)ATNLEN(null)VAL(null)(null) LEICHT !" 51311 [131] "PRINTSTR$IESES CHR$EFAEHRT IST NUR MIT (null)(null)VALRIGHT$(null)VAL(null) ZU BELADEN!" 51312 [131]"PRINTSTR$ER LEFT$VAL(null)(null)(null)LENLEFT$VAL(null) VERWEHRT STR$IR DEN (null)UTRITT!" 51313 [131]"PRINTSTR$U KANNST LEFT$RIGHT$VAL(null)CLOSENICHT WEITERKLETTERN." 51314 [131]"PRINTSTR$U KANNST MID$VAL(null)(null)(null) NICHT KLETTERN!" 51315 [131] "PRINTSTR$U SIEHST IM (null)(null)(null)VAL(null) EIN CHR$EBIRGE." 51316 [131]"PRINTSTR$U SIEHST EINEN (null)(null)(null)(null)(null)(null) AUS EINER LEFT$OEHLE KOMMEN." 51317 [131]"PRINTSTR$U SIEHST NICHTS PEEKESONDERES.","PRINTLEFT$UPSCLOSE!" 51318 [131]"PRINTSTR$U BIST JA RICHTIG SPORTLICH!" 51319 [131]"PRINTSTR$IE (null)ORE IST VOLL CHR$EROELL!","PRINTVALIN STR$URCHBRUCH WIRD SICHTBAR." 51320 [131]"PRINTSTR$IE CHR$EROELLHALDE HAT (null)(null) CHR$(null)(null)(null)(null)VAL (null)TEINE." 51331 [131]"PRINT(null)OHIN?","PRINTSTR$AS KANNST STR$U NICHT.","PRINTIST DOCH SCHON AUF!" 51332 [131]"PRINTSTR$ER (null)FEN IST LEFT$VALRIGHT$(null)(null) !","PRINTVALS LIEGT EWAS DARIN." 51333 [131]"PRINTSTR$AS KANNST STR$U DOCH NICHT OEFFNEN!" 51334 [131]"PRINTSTR$ER PEEKALKEN LIEGT UEBER DEM (null)ASSERLOCH." 51335 [131]"PRINTSTR$IE (null)UENZEN SIND IM (null)ASCVAL(null)! (null)IE SCHMELZEN UND WERDEN FLUESSIG!" 51336 [131]"PRINT(null)IE WILLST STR$U DENN DAS (null)VALRIGHT$(null)VAL(null)?","PRINTSTR$AS IST NICHT MEIN (null)AME!" 51337 [131]"PRINTPEEK(null)ATN(null)(null)CLOSEATNPEEKVAL(null)(null)VAL(null)(null)VAL(null)CLOSE!!!CLOSESTR$U SOLLST STR$ATN(null)CLOSEPEEK(null)LENLEFT$ BEKOMMEN." 51338 [131]"PRINTVAL(null) LEGT STR$ATN(null)CLOSEPEEK(null)LENLEFT$CLOSEHIN.","PRINTSTR$ER (null)HRON VERSINKT IM VALRDREICH." 51339 [131]"PRINTSTR$IE (null)ORE ROLLT DAVON." 51340 [131]"PRINTRIGHT$N DER ASCORM BEGINNT EIN (null)RIGHT$(null)PEEKVAL(null)(null)LENLEFT$(null)(null)VAL(null)(null)VAL(null)ZU ERKALTEN." 51341 [131]"PRINTRIGHT$N DER ASCORM BEGINNT EIN CHR$(null)(null)STR$(null)LENLEFT$(null)(null)VAL(null)(null)VAL(null) ZU ERKALTEN." 51342 [131]"PRINT(null)ERSUCHE: (null)IMM PEEKOOT.","PRINTSTR$ER (null)TEINFRESSER FLIEHT." 51343 [131]"PRINTSTR$AS (null)ETZ ZERREISST,ABER DIE (null)RIGHT$VAL(null)VAL(null)(null)(null)RIGHT$(null)(null)VALKOMMT AUF STR$ICH ZU." 51344 [131]"PRINTSTR$IE (null)PINNE IST TOT.","PRINTSTR$ER ASCLUGDRACHEN FLIEGT DAVON." 51345 [131]"PRINTSTR$ER (null)(null)(null)(null)(null)(null)CLOSE IST SCHWER VERWUNDET UND VERSCHWINDET IN DER LEFT$OEHLE." 51346 [131]"PRINTSTR$ER (null)FEIL VERWUNDET DEN (null)(null)(null)(null)(null)(null) NUR (null)VALRIGHT$LENLEFT$(null)." 51347 [131]"PRINTSTR$U SIEHST NICHTS PEEKVAL(null)(null)(null)STR$VAL(null)VAL(null).","PRINT(null)IE IST LEER." 51348 [131]"PRINT(null)IE IST VERSCHLOSSEN.","PRINTVALS LIEGT EIN (null)VAL(null)CHR$ATN(null)VAL(null)(null) DARIN." 51349 [131]"PRINTSTR$IE (null)NOCHEN SIND MIT (null)PINNWEBEN UEBERZOGEN." 51350 [131]"PRINTVALS KOMMT EINE GROSSE LEFT$RIGHT$(null)(null)VALCLOSEUND (null)ATN(null)LENLEFT$CLOSE HERAUS." 51351 [131]"PRINTSTR$A STEHT ETWAS CHR$VAL(null)LENLEFT$(null)RIGHT$VALPEEKVAL(null)VAL(null)." 51352 [131]"PRINT(null)ATNLENLEFT$(null) UND CHR$VAL(null)STR$ IST NICHT ATN(null)(null)VAL(null)!" 51353 [131]"PRINT(null)VALRIGHT$(null)LEFT$VALRIGHT$(null)CLOSEIST, (null)VALRIGHT$(null)VAL(null)CLOSE(null)(null)ATN(null)(null) NACHZURENNEN." 51354 [131]"SYS*** STR$AS PEEK(null)LENLEFT$CLOSEDER (null)VALRIGHT$(null)LEFT$VALRIGHT$(null) ***" 51355 [131]"PRINT(null)ASSE STR$EINE ASCATN(null)(null)ATN(null)RIGHT$VAL SPIELEN!" 51356 [131]"PRINTPEEKEDENKE: STR$U BIST IN EINEM (null)ATNVAL(null)LENLEFT$VAL(null)- UNDCLOSE(null)ATNCHR$VAL(null)(null)ATN(null)STR$!" 51357 [131]"PRINTSTR$IE (null)FEILE SIND ERLOSCHEN." 51358 [131]"PRINTSTR$ER (null)IGER KNURRT UND LAEUFT DAVON." 51359 [131]"PRINT(null)ERSUCHE: (null)(null)VAL(null)(null)VAL(null)(null)","PRINTSTR$A KANNST STR$U NICHT HINGEHEN." 51360 [131]"PRINT(null)EIDER KANNST STR$U (null)RIGHT$LENLEFT$(null) SCHWIMMEN." 51361 [131]"PRINT(null)HNE (null)(null)STR$VAL(null)CLOSEKOMMST STR$U NICHT VORAN.","PRINTLASSEN STR$ICH NICHT!" 51362 [131]"PRINTSTR$IE (null)WERGE","PRINTSTR$IE PEEKRUECKE IST MORSCH....(null)IE PEEK(null)RIGHT$LENLEFT$(null)!" 51363 [131]"PRINTSTR$IE LEFT$AENGEBRUECKE HAELT STR$EIN CHR$EWICHT NICHT AUS........" 51364 [131]"PRINTVALS IST EINE (null)CHLUESSEL-FORM. ((null)ESTE VON (null)VAL(null)ATN(null)(null) SIND DARIN)" 51365 [131]"PRINTSTR$AS PEEKOOT LECKT !" 51366 [131]"PRINTSTR$IE (null)(null)PEEK(null)(null)STR$VAL HABEN DIE (null)UENZEN GENOMMEN UND VERSCHWINDEN!" 51367 [131]"PRINTSTR$IE (null)(null)PEEK(null)(null)STR$VAL HABEN STR$ICH BESTOHLEN !" 52000 [142]